 GetPixel ()     ( Graph)
 --------------------------------------
     
 (X, Y).

 :
 Function GetPixel(X, Y : Integer) : Word;

 :
Real, Protected

 :
     (X, Y).

 :
    .

  :
 GetImage
 PutImage
 PutPixel

 :
 Getpixel.PAS



{Getpixel.PAS}
---------------
{     GetPixel }

Uses Graph;

Var  Gd, Gm : Integer;
 PixelColor : Word;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 PixelColor:=GetPixel(10, 10);
 If PixelColor = 0 Then PutPixel(10, 10, GetMaxColor);
 ReadLn;
 CloseGraph;
End.
